﻿Public Class masmstatus
    Private mstatusID = Nothing
    Private mstatusDesc = Nothing
    Private mstatusStatus = Nothing
    Private selectMasmstatus = "SELECT `mstatus` as 'รหัสสถานะ' , `mstatusdesc` as 'สถานะสมรส' ,`status` as 'สถานะการเปิดใช้งาน' FROM masmstatus"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property mstatusID_ As Integer
        Get
            Return mstatusID
        End Get
        Set(value As Integer)
            mstatusID = value
        End Set
    End Property

    Property mstatusDesc_ As String
        Get
            Return mstatusDesc
        End Get
        Set(value As String)
            mstatusDesc = value
        End Set
    End Property

    Property mstatusStatus_ As Boolean
        Get
            Return mstatusStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                mstatusStatus = 1
            Else
                mstatusStatus = 0
            End If
        End Set
    End Property

    Property selectMasmstatus_ As String
        Get
            Return selectMasmstatus
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasmstatusData()
        If mstatusDesc <> "" Then
            If TypeOf mstatusDesc Is String Then
                If connect.GetTable("SELECT mstatusdesc FROM masmstatus WHERE mstatusdesc = '" & mstatusDesc & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลสถานภาพสมรสนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim mstatusID As Integer

                        mstatusID = connect.ExecuteScalar("INSERT INTO masmstatus (mstatusdesc, status) VALUES ('" & mstatusDesc & "', '" & mstatusStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO masmstatus (MSTATUS, MSTATUSDESC, STATUS) VALUES ('" & mstatusID & "', '" & mstatusDesc & "', '" & mstatusStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลสถานภาพสมรสเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสสถานภาพสมรสนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasmstatusData()
        If mstatusID > 0 And mstatusDesc <> "" Then
            If TypeOf mstatusDesc Is String Then
                Try
                    connect.ExecuteNonQuery("UPDATE masmstatus SET mstatusdesc = '" & mstatusDesc & "', status = '" & mstatusStatus & "' WHERE mstatus = '" & mstatusID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASMSTATUS SET MSTATUSDESC = '" & mstatusDesc & "', STATUS = '" & mstatusStatus & "' WHERE MSTATUS = '" & mstatusID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลสถานภาพสมรสดังกล่าวเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสสถานภาพสมรสนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
